(defvar 对照表 (make-hash-table))

;;定义对照表中的内容，第一步先解决中文关键字与英文关键字对照问题
(setf (gethash '如果  对照表) 'if)
(setf (gethash '循环  对照表) 'dotimes)
(setf (gethash '条件  对照表) 'cond)
(setf (gethash '条件循环  对照表) 'loop)
(setf (gethash '列表循环  对照表) 'dolist)
(setf (gethash '块定义  对照表) 'block)
(setf (gethash '函数定义  对照表) 'defun)
(setf (gethash '宏定义  对照表) 'defmacro)
(setf (gethash '结构定义  对照表) 'defstruct)
(setf (gethash '当符合条件  对照表) 'when)
(setf (gethash '语句组  对照表) 'progn)

;;内部函数
(defun 增(x dl) (dl-insert x dl))
(defun 删(dl) (dl-remove dl))
(defun 改(x dl) (setf (dl-data dl) x))
(defun 上(dl &optional (n 1)) (dl-go-prev dl n))
(defun 下(dl &optional (n 1)) (dl-go-next dl n))
(defun 子(dl &optional (n 1)) (dl-go-data dl n))
(defun 显(dl &optional (n 1)) (dl-pr dl n #\a))
(defun 现(dl) (dl-pr dl))
(defun 点(dl) (cur-dl dl))
(defun 头(dl) (dl-head dl))
(defun 尾(dl) (dl-tail dl))
(defun 值(s v) (setq s v))
(defun 数(dl) (dl-element dl))



(defvar 开始  nil)
(defvar 当前  nil)
(defvar 结尾  nil)
(defvar 项目 '(开始 当前 结尾))
(defun 状态 ()
  (format t "元素数量：~a~%" (dl-element  开始))
  (hash-table-count 对照表))